library(shiny)
library(data.table)
library(ggplot2)
library(bslib)
library(DT)
library(plotly)


options(shiny.fullstacktrace = FALSE)
source("section1_ui.R")
source("section2.R")
source("section3.R")
source("section4.R")

ui <- page_fillable(
    tags$head(
      tags$link(rel="stylesheet",type = "text/css", href="css/main.css"),
      tags$link(rel="stylesheet",type = "text/css", href="css/section1.css"),
    ),
    div(
        h2("数据分析平台"),
        class="navbar-static-top"
    ),
    navset_pill_list(
        nav_panel("数据准备", icon = icon("cogs"),section1_ui("section1")),
        nav_panel("数据描述", icon = icon("chart-bar"),section2_ui("section2")),
        nav_panel("数据分析", icon = icon("calculator"),section3_ui("section2")),
        nav_panel("自定义分析", icon = icon("cog"),section4_ui("section2")),
    )
)

server <- function(input, output, session) {
    # Server logic goes here
    sectionServer("section1")
}

shinyApp(ui = ui, server = server)